home *** CD-ROM | disk | FTP | other *** search
/ Interactive CD-ROM & Web Magazine 6 / Interactive CD-ROM & Web Magazine 6.iso / mac / INTERACTIVE MAC / RUN ME MAC (68k) / RUN ME MAC (68k).dxr / 00020.ls < prev    next >
Encoding:
Text File  |  1996-04-02  |  1.4 KB  |  44 lines
  1. on startMovie
  2.   global hd, cd, pathSeparator, rosso, bianco, menuList, netObj, currentNetHandler, iswin95, tobeonline, standalone
  3.   set standalone to 0
  4.   set currentNetHandler to EMPTY
  5.   set rosso to the foreColor of field "rosso"
  6.   set bianco to the foreColor of field "bianco"
  7.   if not (the quickTimePresent) then
  8.     sound stop 1
  9.     alert("Installa l'estensione QUICKTIME!")
  10.     quit()
  11.   end if
  12.   if the machineType <> 256 then
  13.     set metrica to 0.59999999999999998
  14.     set conf to "confmac.sum"
  15.     if the pathName = "IMM06:INTERACTIVE MAC:" then
  16.       sound stop 1
  17.       alert("COPIARE SUL PROPRIO HARD DISK LA CARTELLA ''INTERACTIVE MAC''")
  18.       quit()
  19.     end if
  20.     set pathSeparator to ":"
  21.     set cd to "IMM06"
  22.   else
  23.     set metrica to 0.75
  24.     set conf to "config.sum"
  25.     set netObj to Netscdde(mnew, "%!)┬ú$$/")
  26.     set winVer to netObj(mGetWinVersion)
  27.     if value(winVer) > 3.20000000000000018 then
  28.       set iswin95 to 1
  29.     else
  30.       set iswin95 to 0
  31.     end if
  32.     set pathSeparator to "\"
  33.     set cd to cd & ":"
  34.   end if
  35.   set hd to the pathName
  36.   set menuList to []
  37.   set myObj to birth(script "TextMenu", 41, 64, conf, 2, 3, 1, 24, metrica, 16, 0, 19)
  38.   addAt(menuList, 1, myObj)
  39.   set myObj to birth(script "TextMenu", 45, 32, conf, 10, 8, 2, 39, metrica, 16, 0, 19)
  40.   addAt(menuList, 2, myObj)
  41.   set myObj to birth(script "TextMenu", 46, 32, conf, 10, 8, 3, 40, metrica, 16, 0, 19)
  42.   addAt(menuList, 3, myObj)
  43. end
  44.